cd "D:\Document\doing\主动与被动信息披露——基于股份回购与机构调研"
/*
use "月度股票回购区间指标.dta",clear
tostring month , replace
gen Year = substr(month,1,4)
destring Year,replace
gen Month = substr(month,5,6)
destring Month,replace
drop month
rename id Scode
save "月度股票回购区间指标.dta",replace
use "月度个股回报率.dta",clear
gen Year = substr(Trdmt,1,4)
destring Year,replace
gen Month1 = substr(Trdmt,6,7)
gen Month = substr(Month1,1,2)
drop Month1
destring Month,replace
duplicates drop Scode Year Month,force
save "月度个股回报率.dta",replace
use "月度股票回购区间指标.dta",clear
merge 1:1 Scode Year Month using "月度个股交易衍生指标.dta", nogen
merge 1:1 Scode Year Month using "月度个股回报率.dta", nogen
save "月度数据.dta",replace

use "月度数据.dta",clear
label variable 区间回购次数 "区间回购次数"
rename 区间回购次数 回购次数
label variable 区间回购数量万股 "区间回购数量（万股）"
rename 区间回购数量万股 回购数量
label variable 区间回购金额万元 "区间回购金额（万元）"
rename 区间回购金额万元 回购金额
order 证券代码 证券名称 Scode Year Month
drop 证券代码 证券名称 Turnover Coname Trdmt Mhiprc Mloprc Mopnprc Mclsprc Mclsprcp Amclsprc Amclsprcp
format Month %02.0f
sort Scode Year Month

tostring Year,gen(year)
tostring Month,gen(month)
gen month1 = "0"+month
gen month2 = substr(month1,-2,.)
drop month1 month
rename month2 month
gen Date = year +"-"+month
drop year month

gen date1 = monthly(Date,"YM")
format date1 %tmCCYY-NN
drop Date
rename date1 Date
drop if Year<2000
save "月度数据.dta",replace


replace 回购次数 = 0 if 回购次数!=1 & 回购次数!=2 &回购次数!=3
replace 回购数量 = 0 if 回购次数!=1 & 回购次数!=2 &回购次数!=3
replace 回购金额 = 0 if 回购次数!=1 & 回购次数!=2 &回购次数!=3
bysort Date:gen 市场回购次数 = sum(回购次数)
bysort Date:gen 市场回购数量 = sum(回购数量)
bysort Date:gen 市场回购金额 = sum(回购金额)
label variable 市场回购次数 "市场回购次数"
label variable 市场回购数量 "市场回购数量"
label variable 市场回购金额 "市场回购金额"
duplicates drop Scode Year Month ,force
drop if Year<2015
//合并一致性指标
merge 1:1 Scode Year Month using "月度一致性指标.dta",nogen
sort Scode Year Month
rename 月度一致性指标 R2_market
gen R2index = ln(Rsquare/(1-Rsquare))
drop Amount Estbdt Listdt Nnindcd Markettype ym yearmonth
save "月度数据.dta",replace
    */
use "月度数据.dta",clear
reg R2index 回购次数
reg R2index 回购数量
reg R2index 回购金额




//市场月度回购次数
twoway (line 市场回购次数 Date if Year >2015, lcolor(black%80) lwidth(medium) lpattern(solid) connect(stairstep) cmissing(n)), ytitle(回购次数) ylabel(, labels labcolor(black%80)) xlabel(, labels) title(市场月度回购次数, size(medlarge)) caption(数据来源：东方财富Choice数据库) scheme(sj) xsize(20) ysize(15)
graph export "D:\Document\doing\主动与被动信息披露——基于股份回购与机构调研\图表\市场月度回购次数.png", as(png) name("Graph") replace
graph save "Graph" "D:\Document\doing\主动与被动信息披露——基于股份回购与机构调研\图表\市场月度回购次数.gph", replace
//市场月度回购数量（万股）
twoway (line 市场回购数量 Date if Year >2013, lcolor(black%80) lwidth(medium) lpattern(solid) connect(stairstep) cmissing(n)), ytitle(回购数量（万股）) ylabel(, labels labcolor(black%80)) xlabel(, labels) title(市场月度回购数量（万股）, size(medlarge)) caption(数据来源：东方财富Choice数据库) scheme(sj) xsize(20) ysize(15)
graph export "D:\Document\doing\主动与被动信息披露——基于股份回购与机构调研\图表\市场月度回购数量（万股）.png", as(png) name("Graph") replace
graph save "Graph" "D:\Document\doing\主动与被动信息披露——基于股份回购与机构调研\图表\市场月度回购数量（万股）.gph", replace
//市场月度回购金额（万元）
twoway (line 市场回购金额 Date if Year >2013, lcolor(black%80) lwidth(medium) lpattern(solid) connect(stairstep) cmissing(n)), ytitle(回购金额（万元）) ylabel(, labels labcolor(black%80)) xlabel(, labels) title(市场月度回购金额（万元）, size(medlarge)) caption(数据来源：东方财富Choice数据库) scheme(sj) xsize(20) ysize(15)
graph export "D:\Document\doing\主动与被动信息披露——基于股份回购与机构调研\图表\市场月度回购金额（万元）.png", as(png) name("Graph") replace
graph save "Graph" "D:\Document\doing\主动与被动信息披露——基于股份回购与机构调研\图表\市场月度回购金额（万元）.gph", replace


/*画图
twoway (scatter Mtnor 回购数量 if 回购数量!=., lcolor(black%80) lwidth(medium) lpattern(solid)  cmissing(n)),  ylabel(, labels labcolor(black%80)) xlabel(, labels) title(AAA, size(medlarge)) caption(数据来源：东方财富Choice数据库) scheme(sj) xsize(20) ysize(15)
graph export "D:\Document\doing\主动与被动信息披露——基于股份回购与机构调研\图表\AAA.png", as(png) name("Graph") replace
graph save "Graph" "D:\Document\doing\主动与被动信息披露——基于股份回购与机构调研\图表\AAA.gph", replace

twoway (line AAA Year, lcolor(black%80) lwidth(medium) lpattern(solid) connect(stairstep) cmissing(n)), ytitle(AAA) ylabel(, labels labcolor(black%80)) xlabel(, labels) title(AAA, size(medlarge)) caption(数据来源：东方财富Choice数据库) scheme(sj) xsize(20) ysize(15)
graph export "D:\Document\doing\主动与被动信息披露——基于股份回购与机构调研\图表\AAA.png", as(png) name("Graph") replace
graph save "Graph" "D:\Document\doing\主动与被动信息披露——基于股份回购与机构调研\图表\AAA.gph", replace
*/

